home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / programs / stfax / install < prev    next >
Text File  |  1996-12-23  |  2KB  |  132 lines
  1. ; $VER: STFax-Install 1.0 (27.11.96)
  2.  
  3. (complete 0)
  4.  
  5. (set InstallDir
  6.    (askdir
  7.       (prompt "Where do you want to install STFax?"
  8.               " (a drawer called 'STFax' will be created there)")
  9.       (help @askdir-help)
  10.       (default "Work:")
  11.    )
  12. )
  13.  
  14. (Set DestDir 
  15.    (tackon InstallDir "STFax")
  16. )
  17.  
  18. (Set FaxInDir
  19.    (tackon DestDir "Fax_In")
  20. )
  21.  
  22. (Set FaxOutDir
  23.    (tackon DestDir "Fax_Out")
  24. )
  25.  
  26. (Set ConfigDir
  27.    (tackon DestDir "Config")
  28. )
  29.  
  30. (Set LocaleDir
  31.    (tackon DestDir "Catalogs")
  32. )
  33.  
  34. (set @default-dest 
  35.    DestDir
  36. )
  37.  
  38. (makedir
  39.    DestDir 
  40.    (infos)
  41. )
  42.  
  43. (complete 10)
  44.  
  45. (if (<= (/ (getversion) 65536) 38)
  46.    (set Kick2 1)
  47.    (set Kick2 0)
  48. )
  49.  
  50. (copyfiles
  51.   (source "")
  52.   (dest DestDir)
  53.   (pattern "~(KeyFile|Install|Catalogs|Devs)#?")
  54.   (infos)
  55.   (noposition)
  56. )
  57.  
  58. (complete 30)
  59.  
  60. (copyfiles
  61.   (source "Devs/Printers/STFaxPrt")
  62.   (dest "DEVS:Printers")
  63. )
  64.  
  65. (complete 40)
  66.  
  67. (if (exists "STFax.key")
  68.   (copyfiles
  69.      (source "STFax.key")
  70.      (dest DestDir)
  71.   )
  72. )
  73.  
  74. (if Kick2
  75.    (tooltype
  76.       (dest (tackon DestDir "STFax.guide"))
  77.       (setdefaulttool "AmigaGuide")
  78.    )
  79. )
  80.  
  81. (complete 50)
  82.  
  83. (makedir
  84.   LocaleDir
  85.   (infos)
  86. )
  87.  
  88. (copyfiles
  89.   (source "Catalogs")
  90.   (dest LocaleDir)
  91.   (pattern "IEditor#?.c#?")
  92. )
  93.  
  94. (complete 60)
  95.  
  96. (makedir
  97.   FaxInDir
  98.   (infos)
  99. )
  100.  
  101. (makedir
  102.   FaxOutDir
  103.   (infos)
  104. )
  105.  
  106. (makedir
  107.   ConfigDir
  108. )
  109.  
  110. (complete 85)
  111.  
  112. (startup "STFax"
  113.   (prompt "Editing your S:User-Startup")
  114.   (help "The Installer will add some assigns needed by STFax")
  115.   (command (cat "  Assign STFax: \"" DestDir "\" >NIL:"))
  116. )
  117.  
  118. (makeassign "STFax:" DestDir)
  119.  
  120. (complete 90)
  121.  
  122. (copyfiles
  123.   (prompt "Copying catalog files")
  124.   (help @copyfiles-help)
  125.   (source "Catalogs")
  126.   (dest LocaleDir)
  127.   (confirm)
  128.   (choices "italiano")
  129. )
  130.  
  131. (complete 100)
  132.